// #########################################################################################
// Projeto: Colorminas
// Modulo : PCP
// Fonte  : MTA650POK
// ---------+--------------------------+----------------------------------------------------
// Data     | Autor Rafael Fernandes   | Descricao: Ponto de entrada verificar o saldo da
// ---------+--------------------------+----------------------------------------------------
// 24/06/13 | TOTVS Developer Studio   |            estrutura do produto.
// ---------+--------------------------+----------------------------------------------------

#Include 'Protheus.ch'

User Function MTA650POK()

	Local lRet		:= .T.

	If Inclui

		SC6->( dbGoTop() )
		While SC6->( !Eof() )

			U_COL10A03( SC6->C6_PRODUTO , SC6->C6_QTDVEN , lRet )

			SC6->( dbSkip() )

		Enddo

	Endif

Return lRet